#########################################################
#Figure 6: Wealth Increases Leave Support
#########################################################

bexp <- read.dta13("./temp/fig6data.dta")
ggplot(bexp, aes(as.factor(var), coef, color=var)) +
  geom_pointrange(aes(ymin=coef-1.96*stderr, ymax=coef + 1.96*stderr), shape=16, size=1.7) +
  theme_nice() + ylab("Leave Support") + xlab("Treatment Condition")  + 
  scale_y_continuous(breaks=c(5.8,6.1,6.4,6.7), limits = c(5.8,6.8)) + 
  scale_x_discrete(labels=c("Control", "Treatment")) + 
  scale_color_manual(values=c("grey40", "tan"), name=" ") + 
  theme(axis.title = element_text(size=17),
        axis.text = element_text(size=15),
        panel.grid.major = element_line(linetype="solid"),
        legend.position = "none")   
  ggsave("./figures/fig6.pdf")
  rm(bexp)
